home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / DOORDR40.ARJ / WINDDEMO.PAS < prev   
Pascal/Delphi Source File  |  1990-06-21  |  2KB  |  87 lines
  1. uses doordriv,ReWindow,crt;
  2. Var
  3. MainAr : Windowar;
  4. SpockAr : Windowar;
  5. KirkAr : Windowar;
  6. TedAr : Windowar;
  7. ScannerAr : Windowar;
  8. SpockMemAr : Memoryar;
  9. KirkMemAr : Memoryar;
  10. TedMemAr : Memoryar;
  11. s:string;
  12. f,hi:integer;
  13. begin;
  14.  InitDoorDriver('DoorDriv.CTL');
  15.  clrscr;
  16.  for hi:=1 to 23 do Mainar[hi]:='';
  17.  mainar[1]:='                           -=-  Scanners  -=-                                      ';
  18.  mainar[3]:=' Report: 1 Class G Planet';
  19.  mainar[4]:='         Population : 0';
  20.  mainar[5]:=' Status: Phaser Scorched Serface';
  21.  mainar[6]:='         Photon Craters Cover The Planet';
  22.  Rwindow(1,13,80,23,
  23.          0,4,9,4,
  24.          MainAr);
  25.  GetScreen(3,3,23,5,SpockMemAr);
  26.  for hi:=1 to 23 do SpockAr[hi]:='';
  27.  spockAr[1]:=' Spock:';
  28.  spockAr[2]:=' Orders, Captian?';
  29.  Rwindow(3,3,23,5,
  30.          15,9,15,9,
  31.          SpockAr);
  32.  getscreen(40,1,75,5,KirkMemAr);
  33.  for hi:=1 to 23 do KirkAr[hi]:='';
  34.  KirkAr[1]:='  Intercomm: Kirk To Security:';
  35.  KirkAr[2]:=' Detach a security detail to the';
  36.  KirkAr[3]:=' bridge imediately. Then Escort';
  37.  KirkAr[4]:=' Mr. Sulu to the Brig.';
  38.  RWindow(40,1,75,5,
  39.          4,15,4,15,
  40.          KirkAr);
  41.  delay(2000);
  42.  reinitscreen(40,1,75,5,KirkMemAr);
  43.  GetScreen(53,3,75,5,KirkMemAr);
  44.  for hi:=1 to 23 do KirkAr[hi]:='';
  45.  KirkAr[1]:=' Kirk:';
  46.  KirkAr[2]:=' Take The Helm Ted.';
  47.  Rwindow(53,3,75,5,
  48.          15,9,15,9,
  49.          KirkAr);
  50.  delay(800);
  51.  reinitscreen(53,3,75,5,KirkMemAr);
  52.  GetScreen(33,5,57,7,TedMemAr);
  53.  for hi:=1 to 23 do TedAr[hi]:='';
  54.  TedAr[1]:=' Ted:';
  55.  TedAr[2]:=' Javol Jal Commadant.';
  56.  Rwindow(33,5,57,7,
  57.          15,9,15,9,
  58.          TedAr);
  59.  delay(800);
  60.  reinitscreen(33,5,57,7,TedMemAr);
  61.  GetScreen(53,3,80,5,KirkMemAr);
  62.  for hi:=1 to 23 do KirkAr[hi]:='';
  63.  KirkAr[1]:=' Kirk:';
  64.  KirkAr[2]:=' Planetary Scan, Spock.';
  65.  Rwindow(53,3,80,5,
  66.          15,9,15,9,
  67.          KirkAr);
  68.  delay(800);
  69.  reinitscreen(53,3,80,5,KirkMemAr);
  70.  reinitscreen(3,3,23,5,SpockMemAr);
  71.  GetScreen(3,3,15,5,SpockMemAr);
  72.  for hi:=1 to 23 do SpockAr[hi]:='';
  73.  spockAr[1]:=' Spock:';
  74.  spockAr[2]:=' Yes Sir.';
  75.  Rwindow(3,3,15,5,
  76.          15,9,15,9,
  77.          SpockAr);
  78.  for hi:=1 to 23 do ScannerAr[hi]:='';
  79.  scannerar[1]:='   Planetary Scanners     ';
  80.  Rwindow(55,13,80,23,
  81.          0,4,9,4,
  82.          ScannerAr);
  83.  delay(1000);
  84.  
  85.  read(s);
  86. end.
  87.